procedure prered ()

string inst {"ccd1k",enum="ccd1k|ccd2k",prompt="CCD type (ccd1k|ccd2k)"}

begin

setinstrument (inst,site="",directory="soar_ifu$conf/",review=no)

set clobber=yes
#section("bias*", > "files_bias")
#section("dark*", > "files_dark")
#hselect("*.imh","$I","title='BIAS'", > "files_bias")
#hselect("*.fits","$I","title='DARK'", > "files_dark")
#hselect("*.fits","$I","title='flat'|title='Flat'", > "files_flat")
#hselect("*.fits","$I","title!='BIAS'", > "files_all")

ccdproc ("@files_bias")
imcombine("@files_bias","ZERO")


end
